home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / geomitri / rcd / cbshear.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-06-10  |  14.2 KB  |  328 lines
  1. 2       ' This programme is used to design  MULTI SPANS CONTIUOUS BEAMS                        for   SHEAR  stresses
  2. 3       ' This programme uses Advanced Basic Language  (IBM - BASICA )
  3. 4       ' This programme is saved under the name     [ CBSHEAR ]
  4. 5       ' This programme is accessed only through the programme CONTBEAM
  5. 6       ' Prepared by   AMJAD J. SHAIR  23/2/1986 -  ,separated from CONTBEAM on                                                          25/2/1987
  6. 4000  '----------------------- S H E A R   D E S I G N  ------------------------
  7. 4010  CLS:LOCATE 2,3 : COLOR 15,5
  8. 4020  PRINT "  ****        CONTINUOUS BEAM DESIGN       *       B"NMB" -B"NMBL"      ****" TAB(78)""
  9. 4030  LOCATE ,3 :PRINT "" TAB(78)""
  10. 4040  LOCATE ,3 :PRINT "        CONCRETE f'c ="FC" kg/cm2     *     REINF' fy ="FY" kg/cm2" TAB(78)""
  11. 4050  LOCATE ,3 :PRINT "" TAB(78)""
  12. 4060  LOCATE ,3 :PRINT "Width  b  ="B" cm   *   Height  h  ="H" cm   *   Eff. Depth  d  ="D" cm" TAB(78)""
  13. 4070  COLOR 15,1 :PRINT
  14. 4080  VSC=(CINT(0.53*SQR(FC)*100))/100   'Max. Shear Stress to be taken by conc.
  15. 4090  VSM=(CINT(2.5*SQR(FC)*100))/100  'Max. Shear Stress to be taken with stirr
  16. 4100  PRINT "   Max. Shear Stress taken by conc. vc =.53 *SQR(f'c) ="VSC" kg/cm2"
  17. 4110  PRINT "   Max. Shear Stress taken by the Beam with Stirrups  ="VSM" kg/cm2"
  18. 4120  PRINT
  19. 4125  INPUT "   ENTER   Max.  [ NUMBER  ] of Stirrups to be used       ",NVMAX
  20. 4128  PRINT
  21. 4130  INPUT "   ENTER   Max.  [ SPACING ] of Stirrups to be used  (cm) ",SMAX
  22. 4140  PRINT
  23. 4150  AVM =(CINT((3.5*B*SMAX/FYS)*100))/100
  24. 4160  NVM1= 1+INT(AVM/(0.51*2))
  25. 4170  AVP1=NVM1*0.51*2
  26. 4180  NVM2= 1+INT(AVM/(0.79*2))
  27. 4190  AVP2=NVM2*0.79*2
  28. 4200  PRINT "  Min. required area of STIRRUPS  = 3.5 x b x S / fys ="AVM" cm2"
  29. 4205  PRINT
  30. 4210  PRINT "  NEED "NVM1" STR. "CHR$(237)" 8 mm "CHR$(64);SMAX" cm SPC.  *  Av (Prv.)="AVP1" cm2"
  31. 4220  PRINT "   OR  "NVM2" STR. "CHR$(237)"10 mm "CHR$(64);SMAX" cm SPC.  *  Av (Prv.)="AVP2" cm2"
  32. 4230  PRINT
  33. 4240  INPUT "   ENTER the minimum  [ NUMBER   ] of stirrups  ",NVM
  34. 4250  INPUT "   ENTER the minimum  [ DIAMETER ] of stirrups  ",DVM
  35. 4255  AVPM=CINT(2*NVM *3.14159*DVM^2/4)/100
  36. 4256  IF AVPM<0.95*AVM THEN PRINT :GOTO 4200
  37. 4258  VSSN=AVPM*FYS/(B*SMAX)  'Shear stress that could be taken by min.web reinf
  38. 4259  VSCS=CINT((VSSN+VSC)*100)/100         'Shear stress taken by conc. section                                              with min. web reinf.
  39. 4260  PRINT : COLOR 0,7
  40. 4262  LOCATE ,6 :PRINT ""TAB(74)""
  41. 4265  LOCATE ,6 :PRINT "                   FOR ALL SPANS OF THIS BEAM ;"TAB(74)""
  42. 4270  LOCATE ,6 :PRINT "         THE MINIMUM SHEAR REINFORCEMENT TO BE USED WILL BE"TAB(74)""
  43. 4275  LOCATE ,6 :PRINT ""TAB(74)""
  44. 4280  LOCATE ,6 :PRINT "  [ "NVM" STR. "CHR$(237);DVM" mm "CHR$(64);SMAX" cm  SPACING . Av(prov.="AVPM "]"TAB(74)""
  45. 4282  LOCATE ,6 :PRINT ""TAB(74)""
  46. 4284  COLOR 15,1 :PRINT
  47. 4285  PRINT :PRINT "            ***    Press  SPACE BAR   to continue   *** ";
  48. 4290  Y$=INKEY$ :IF Y$<>" " THEN 4290
  49. 4300  '-----------------------------------------------Shear Force & Stress Calc.
  50. 4310  FOR I=1 TO N
  51. 4320  CLS:LOCATE 2,3 : COLOR 15,5
  52. 4330  PRINT "  ****        CONTINUOUS BEAM DESIGN       *       B"NMB" -B"NMBL"      ****" TAB(78)""
  53. 4350  LOCATE ,3 :PRINT "        CONCRETE f'c ="FC" kg/cm2     *     REINF' fy ="FY" kg/cm2" TAB(78)""
  54. 4360  LOCATE ,3 :PRINT "Width  b  ="B" cm   *   Height  h  ="H" cm   *   Eff. Depth  d  ="D" cm" TAB(78)""
  55. 4365  LOCATE ,3 :PRINT "Width of left Support ="BS(I) "cm  *  Width of Right Support ="BS(I+1) "CM"TAB(78)""
  56. 4370  COLOR 15,1 :PRINT
  57. 4380  PRINT "   ****  SHEAR DESIGN  *  SPAN  No. "I"  ****"
  58. 4390  PRINT "  --------------------------------------------"
  59. 4440  XVL(I)=(BS(I)/2+D)/100     'Distance  (d) from face of left support
  60. 4450  XL=XVL(I) :RL=RL(I)
  61. 4460  GOSUB 7900
  62. 4470  VL(I)=(CINT(ABS(V)*100))/100
  63. 4480  VSTL(I)=VL(I)*1000/(0.85*B*D)   'Shear Stress at (d) from face of                                                      left support
  64. 4490  VSTL(I)=(CINT(VSTL(I)*100))/100
  65. 4510  XVR(I)=(BS(I+1)/2+D)/100     'Distance  (d) from face of right support
  66. 4520  XL=L(I)-XVR(I) :RL=RL(I)
  67. 4530  GOSUB 7900
  68. 4540  VR(I)=(CINT(ABS(V)*100))/100
  69. 4550  VSTR(I)=VR(I)*1000/(0.85*B*D)   'Shear Stress at (d) from face of                                                      right support
  70. 4560  VSTR(I)=(CINT(VSTR(I)*100))/100
  71. 4580  IF VL(I)>VR(I) THEN VF(I)=VL(I) ELSE VF(I)=VR(I)        'Max. Shear Force
  72. 4590  VST(I)=VF(I)*1000/(0.85*B*D)   'Shear Stress at (d) from face of supp.
  73. 4600  VST(I)=(CINT(VST(I)*100))/100
  74. 4610  IF VST(I)<=VSM GOTO 4700
  75. 4620  PRINT :LOCATE ,3 :COLOR ,4 :BEEP
  76. 4630  PRINT "  Shear Stress is too high , CHANGE the beam section dimensions"
  77. 4640  COLOR ,1 :PRINT :GOTO 5040
  78. 4700  '----------------------------------------------------Shear Stirrups Reinf'
  79. 4710  PRINT
  80. 4720  PRINT "   Min. required area of shear stirrups reinf' ="AVM" cm2"
  81. 4730  PRINT "   NEED "NVM" STR. "CHR$(237);DVM" mm "CHR$(64);SMAX" cm SPC.  *  Av (Prv.)="AVPM" cm2"
  82. 4740  PRINT
  83. 4760  PRINT "   Max. Shear Force  Vu  at (d) from face of supp.   ="VF(I)" ton"
  84. 4770  PRINT "   Max. Shear Stress vu  = Vu / ( 0.85 * b * d )     ="VST(I)" kg/cm2"
  85. 4780  PRINT "   Max. Shear Stress taken by conc. vc =.53 *SQR(f'c)="VSC" kg/cm2"
  86. 4790  PRINT
  87. 4840  VST=VST(I)
  88. 4850  IF VST>VSCS GOTO 4890
  89. 4855  PRINT "   Shear Stress that could be taken by the concrete                                 section with the min. Web Reinf'chosen =  vcs   ="VSCS" kg/cm2"
  90. 4860  PRINT "   Since  vu < vcs  ; only min. web reinf' is required"
  91. 4870  NV=NVM :S=SMAX :AV=AVM :AVP=AVPM :DV=DVM :GOTO 4990
  92. 4880  PRINT "   ** CHOICES OF SHEAR STIRRUPS REINF' **"
  93. 4890  FOR NV=1 TO NVMAX              'No. of closed stirrups
  94. 4900  FOR S =15 TO SMAX STEP 5       'Spacing of stirrups
  95. 4910  GOSUB 7100
  96. 4920  PRINT "  "NV" STR. "CHR$(237);DV" mm "CHR$(64);S" cm SPC.  * Av (Req.)="AV" cm2 *Av (Prv.)="AVP" cm2"
  97. 4930  NEXT S
  98. 4940  NEXT NV
  99. 4950  PRINT
  100. 4960  INPUT "   ENTER the preferable   [ NUMBER   ] of stirrups  ",NV
  101. 4970  INPUT "   ENTER the preferable   [ DIAMETER ] of stirrups  ",DV
  102. 4975  IF NV<=0 OR DV<=0 THEN NV(I)=NVM :DV(I)=DVM :S(I)=SMAX :AV(I)=AVM :AVP(I)=AVPM :GOTO 4990
  103. 4978  IF NV<NVM AND DV<DVM GOTO 4950
  104. 4980  GOSUB 7400
  105. 4985  NV(I)=NV :DV(I)=DV :S(I)=S :AVP(I)=AVP :AVR(I)=AV
  106. 4990  PRINT :LOCATE ,4: COLOR 0,4
  107. 5000  PRINT "USE  [ "NV" STR. "CHR$(237);DV" mm "CHR$(64);S" cm  SPACING ]"
  108. 5010  COLOR 15,1 :PRINT
  109. 5015  IF VST<=VSCS GOTO 5060
  110. 5020  PRINT "    DO YOU WANT TO CHANGE TO MIN. WEB REINF' WHERE THE ABOVE WEB REINF'             IS NOT NEEDED THROUGH THIS SPAN  ?  (Y/N) ";
  111. 5030  YCS$(I)=INKEY$ :IF YCS$(I)<>"Y" AND YCS$(I)<>"y" AND YCS$(I)<>"N" AND YCS$(I)<>"n" THEN 5030
  112. 5040  IF YCS$(I)="Y" OR YCS$(I)="y" THEN PRINT "  YES" :GOSUB 9000 :PRINT :GOTO 5070
  113. 5050  IF YCS$(I)="N" OR YCS$(I)="n" THEN PRINT "  NO " :PRINT
  114. 5060  NVL(I)=NV :DVL(I)=DV :SL(I)=S :AVPL(I)=AVP :AVRL(I)=AV
  115. 5065  NVR(I)=NV :DVR(I)=DV :SR(I)=S :AVPR(I)=AVP :AVRR(I)=AV
  116. 5070  PRINT "          Press  SPACE BAR   to continue ";
  117. 5080  Y$=INKEY$ :IF Y$<>" " THEN 5080
  118. 5090  NEXT I
  119. 5100  '-----------------------------------------------------Print Data & Results
  120. 5110  PRINT :PRINT :PRINT
  121. 5120  PRINT "     DO YOU WHANT THIS BEAM DESIGN TO BE PRINTED    (Y/N) ?  ";
  122. 5130  Y$=INKEY$ :IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 5130
  123. 5140  IF Y$="Y" OR Y$="y" THEN PRINT "  YES" :CHAIN "CBPRINT",,ALL
  124. 5150  IF Y$="N" OR Y$="n" THEN PRINT "  NO " :PRINT :GOTO 5910
  125. 5160  PRINT
  126. 5900  '-------------------------------------------------------End of Beam Design
  127. 5910  PRINT "     DO YOU HAVE OTHER BEAMS TO DESIGN              (Y/N) ?  ";
  128. 5920  Y$=INKEY$ :IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 5920
  129. 5930  IF Y$="Y" OR Y$="y" THEN PRINT "  YES" :CHAIN "CONTBEAM",10
  130. 5940  IF Y$="N" OR Y$="n" THEN PRINT "  NO " :PRINT :PRINT "       [  YOU WILL BE SEND BACK TO THE  RCDESIGN  MAIN MENU   ]  " :CHAIN "RCDESIGN",2500
  131. 5990  END  '------------------------------------------------------End of Running
  132. 6000  '-------------------- **** SUBROUTINES **** ------------------------------
  133. 7050  '----------------------------- SUBROUTINE asking to wait for end of signal
  134. 7055  COLOR 31,0 :LOCATE ,18
  135. 7060  PRINT "   ****    P L E A S E   W A I T    ****   "
  136. 7065  COLOR 15,1
  137. 7070  RETURN
  138. 7100  '------------------------------------- SUBROUTINE to find the shear reinf'
  139. 7110  AV=(VST-VSC)*B*S/FYS
  140. 7120  DV=2+2*INT(SQR(4*100*AV*0.95/(3.14159*NV*2))/2)
  141. 7130  IF DV<8 THEN DV=8
  142. 7140  AVP=2*NV*3.14159*DV^2/400
  143. 7150  AV=(CINT(AV*100))/100
  144. 7160  AVP=(CINT(AVP*100))/100
  145. 7170  RETURN
  146. 7200  '---------------------------------------SUBROUTINE to find Bars Diameter
  147. 7210  DIA=2+2*INT(SQR(4*100*AS/(3.14159*NB))/2)
  148. 7220  IF DIA<10 THEN DIA=10
  149. 7230  IF DIA<24 GOTO 7250
  150. 7240  DIA=25
  151. 7250  ASP=NB*3.14159*(DIA/10)^2/4
  152. 7260  RETURN
  153. 7300  '---------------------------------------SUBROUTINE to find Number of Bars
  154. 7310  AB=3.14159*DIA^2/400
  155. 7320  NB =1+INT(AS/AB)
  156. 7330  IF NB<2 THEN NB=2
  157. 7340  ASP=NB*3.14159*(DIA/10)^2/4
  158. 7350  RETURN
  159. 7400  '------------------------------------- SUBROUTINE to find the shear reinf'
  160. 7410  S=2*NV*3.14159*DV^2*FYS*1.052/(400*B*(VST-VSC))
  161. 7420  S=INT(S/5)*5
  162. 7430  IF S>SMAX THEN S=SMAX
  163. 7440  AV=(VST-VSC)*B*S/FYS
  164. 7450  AVP=2*NV*3.14159*DV^2/400
  165. 7460  AV=(CINT(AV*100))/100
  166. 7470  AVP=(CINT(AVP*100))/100
  167. 7480  RETURN
  168. 7900  '----------------------- SUBROUTINE TO FIND SHEAR FORCE AT A CERTAIN POINT
  169. 7910  V=RL-W(I)*XL
  170. 7915  IF J(I)<=0 GOTO 7935
  171. 7920  FOR J=1 TO J(I)
  172. 7925  IF XL>X(I,J) THEN V=V-F(I,J)
  173. 7930  NEXT J
  174. 7935  IF Z(I)<=0 GOTO 7965
  175. 7940  FOR Z=1 TO Z(I)
  176. 7945  IF XL<=A3(I,Z) GOTO 7960
  177. 7950  IF XL<(A3(I,Z)+B3(I,Z)) THEN D3=XL-A3(I,Z) ELSE D3=B3(I,Z)
  178. 7955  V=V-D3*W3(I,Z)
  179. 7960  NEXT
  180. 7965  IF Q(I)<=0 GOTO 7998
  181. 7970  FOR Q=1 TO Q(I)
  182. 7975  IF XL<=A5(I,Q) GOTO 7995
  183. 7980  IF C5(I,Q)=A5(I,Q) GOTO 7990
  184. 7985  IF XL<C5(I,Q) THEN V=V-(W5(I,Q)/(C5(I,Q)-A5(I,Q)))*(XL-A5(I,Q))^2/2 :GOTO 7995
  185. 7988  IF C5(I,Q)=(A5(I,Q)+B5(I,Q)) GOTO 7992
  186. 7990  IF XL<(A5(I,Q)+B5(I,Q)) THEN V=V-W5(I,Q)*B5(I,Q)/2+(W5(I,Q)/(A5(I,Q)+B5(I,Q)-C5(I,Q)))*(A5(I,Q)+B5(I,Q)-XL)^2/2 :GOTO 7995
  187. 7992  IF XL>= (A5(I,Q)+B5(I,Q)) THEN V=V-W5(I,Q)*B5(I,Q)/2
  188. 7995  NEXT
  189. 7998  RETURN
  190. 8200  '--- SUBROUTINE to calculate Distance to change stirrups from left supp.
  191. 8205  IF Z(I)>0 OR Q(I)>0 GOTO 8255
  192. 8210  'case with uniform & cocentrated load
  193. 8215  XL=(RL(I)-VLM(I))/W(I)
  194. 8220  IF J(I)<=0 GOTO 8250
  195. 8225  J=1
  196. 8230  IF XL<=X(I,J) GOTO 8250
  197. 8235  XL=XL-F(I,J)/W(I)
  198. 8240  IF XL<=X(I,J) THEN XL=X(I,J) :GOTO 8250
  199. 8245  IF J<J(I) THEN J=J+1 :GOTO 8230
  200. 8250  XSHL(I)=(INT((XL-BS(I)/200)*20)/20)+0.05 :GOTO 8280
  201. 8255  'case with  UNIFORM BLOCK LOAD  and/or  TRIANGULAR LOAD
  202. 8260  XL=(INT(XVL(I)*20)/20)+0.05 :RL=RL(I)
  203. 8265  GOSUB 7900
  204. 8270  IF V<=VLM(I) THEN XSHL(I)=XL-BS(I)/200 :GOTO 8280
  205. 8275  XL=XL+0.05 :GOTO 8265
  206. 8280  RETURN
  207. 8300  '--- SUBROUTINE to calculate Distance to change stirrups from right supp.
  208. 8305  IF Z(I)>0 OR Q(I)>0 GOTO 8355
  209. 8310  'case with uniform & cocentrated load
  210. 8315  XR=(RR(I)-VRM(I))/W(I)
  211. 8320  IF J(I)<=0 GOTO 8350
  212. 8325  J=J(I)
  213. 8330  IF XR<=(L(I)-X(I,J)) GOTO 8350
  214. 8335  XR=XR-F(I,J)/W(I)
  215. 8340  IF XR<=(L(I)-X(I,J)) THEN XR=(L(I)-X(I,J)) :GOTO 8350
  216. 8345  IF J>1 THEN J=J-1 :GOTO 8330
  217. 8350  XSHR(I)=(INT((XR-BS(I+1)/200)*20)/20)+0.05 :GOTO 8380
  218. 8355  'case with  UNIFORM BLOCK LOAD  and/or  TRIANGULAR LOAD
  219. 8360  XL=(INT(L(I)*10)/20)+0.05 :RL=RL(I)
  220. 8365  GOSUB 7900
  221. 8367  IF V>=0 GOTO 8375
  222. 8370  IF V<-VLM(I) THEN XSHR(I)=L(I)-XL+0.05-BS(I+1)/200 :GOTO 8380
  223. 8375  XL=XL+0.05 :GOTO 8365
  224. 8380  RETURN
  225. 8400  '------------------------------------------------- Display Invalid Entries
  226. 8410  PRINT :LOCATE ,6 :COLOR ,4 : BEEP
  227. 8420  PRINT "  ***  YOU WERE GIVEN TWO CHANCES TO ENTER , BUT YOU FAILED  ***  "TAB(72)"" :COLOR ,1
  228. 8430  PRINT :LOCATE ,6 :COLOR ,4
  229. 8440  PRINT "  ***  ENTER  Y  TO REDO THIS BEAM OR TO GO FOR OTHER BEAMS  ***  "TAB(72)"" :COLOR ,1
  230. 8450  PRINT
  231. 8460  GOTO 5900
  232. 8500   '------------------------------ SUBROUTINE : Display Heading & Basic Data
  233. 8510  CLS :LOCATE 2,3 :COLOR 15,5
  234. 8520  PRINT "  ****         CONTINUOUS BEAM DESIGN      *      B"NMB" -B"NMB+N-1"       ****" TAB(78)""
  235. 8540  LOCATE ,3 :PRINT " MATERIAL PROPERTIES :   Conc. f'c ="FC"kg/cm2  *  Steel  fy ="FY"kg/cm2" TAB(78)""
  236. 8550  COLOR 15,1 :PRINT
  237. 8560  RETURN
  238. 9000  '----------------------- SUBROUTINE TO FIND  VARIABLE WEB REINFORCEMENT
  239. 9010  PRINT
  240. 9020  PRINT "   LEFT SIDE  "
  241. 9030  PRINT " -------------"
  242. 9050  VSTL(I)=VL(I)*1000/(0.85*B*D)   'Shear Stress at d/2 from face of                                                      left support
  243. 9060  VSTL(I)=(CINT(VSTL(I)*100))/100
  244. 9070  PRINT "   Min. required area of shear stirrups reinf' ="AVM" cm2"
  245. 9080  PRINT "   NEED "NVM" STR. "CHR$(237);DVM" mm "CHR$(64);SMAX" cm SPC.  *  Av (Prv.)="AVPM" cm2"
  246. 9090  PRINT
  247. 9100  PRINT "   Max. Shear Force  Vu  at (d) from face of supp.   ="VL(I)" ton"
  248. 9110  PRINT "   Max. Shear Stress vu  = Vu / ( 0.85 * b * d )     ="VSTL(I)" kg/cm2"
  249. 9120  PRINT "   Max. Shear Stress taken by conc. vc =.53 *SQR(f'c)="VSC" kg/cm2"
  250. 9140  IF VSTL(I)>=(VSC+VSSN) GOTO 9180
  251. 9150  PRINT "   Shear Stress taken by the min. Web Reinf'  vsn    ="VSSN" kg/cm2"
  252. 9160  PRINT "   Since  vu < vc+vsn  ;only min. web reinf' is required"
  253. 9170  NVL(I)=NVM :DVL(I)=DVM :SL(I)=SMAX :AVPL(I)=AVPM :AVRL(I)=AVM
  254. 9174  PRINT :LOCATE ,4: COLOR 0,4
  255. 9176  PRINT "USE  [ "NVL(I)" STR. "CHR$(237);DVL(I)" mm "CHR$(64);SL(I)" cm  SPACING ]"
  256. 9178  COLOR 15,1 :PRINT :GOTO 9450
  257. 9180  PRINT
  258. 9190  PRINT "   ** CHOICES OF SHEAR STIRRUPS REINF' **"
  259. 9195  VST=VSTL(I)
  260. 9200  FOR NV=1 TO NVMAX              'No. of closed stirrups
  261. 9210  FOR S =10 TO SMAX STEP 2.5     'Spacing of stirrups
  262. 9220  GOSUB 7100
  263. 9230  PRINT "  "NV" STR. "CHR$(237);DV" mm "CHR$(64);S" cm SPC.  * Av (Req.)="AV" cm2 *Av (Prv.)="AVP" cm2"
  264. 9240  NEXT S
  265. 9250  NEXT NV
  266. 9260  PRINT
  267. 9270  INPUT "   ENTER the preferable  [ NUMBER   ] of stirrups  ",NV
  268. 9280  INPUT "   ENTER the preferable  [ DIAMETER ] of stirrups  ",DV
  269. 9290  IF NV<=0 OR DV<=0 GOTO 9170
  270. 9300  IF NV<NVM THEN NV=NVM
  271. 9310  IF DV<DVM THEN DV=DVM
  272. 9320  GOSUB 7400
  273. 9330  NVL(I)=NV :DVL(I)=DV :SL(I)=S :AVPL(I)=AVP :AVRL(I)=AV
  274. 9340  VLM(I)=(VSSN+VSC)*0.85*B*D/1000
  275. 9350  GOSUB 8200
  276. 9360  PRINT :COLOR 0,4
  277. 9370  LOCATE ,5 :PRINT "USE  [ "NVL(I)" STR. "CHR$(237);DVL(I)" mm "CHR$(64);SL(I)" cm  SPACING ]"TAB(75)""
  278. 9375  LOCATE ,5 :PRINT "        FOR  "XSHL(I)"m  from face of left support "TAB(75)""
  279. 9380  LOCATE ,5 :PRINT "        THEN  use minimum web reinforcement"TAB(75)""
  280. 9390  COLOR 15,1 :PRINT
  281. 9450  PRINT
  282. 9460  PRINT "          Press  SPACE BAR   to continue ";
  283. 9470  Y$=INKEY$ :IF Y$<>" " THEN 9470
  284. 9500  '  Right side Shear
  285. 9510  PRINT
  286. 9520  PRINT "   RIGHT SIDE  "
  287. 9530  PRINT " --------------"
  288. 9550  VSTR(I)=VR(I)*1000/(0.85*B*D)   'Shear Stress at (d) from face of                                                      right support
  289. 9560  VSTR(I)=(CINT(VSTR(I)*100))/100
  290. 9570  PRINT "   Min. required area of shear stirrups reinf' ="AVM" cm2"
  291. 9580  PRINT "   NEED "NVM" STR. "CHR$(237);DVM" mm "CHR$(64);SMAX" cm SPC.  *  Av (Prv.)="AVPM" cm2"
  292. 9590  PRINT
  293. 9600  PRINT "   Max. Shear Force  Vu  at (d) from face of supp.   ="VR(I)" ton"
  294. 9610  PRINT "   Max. Shear Stress vu  = Vu / ( 0.85 * b * d )     ="VSTR(I)" kg/cm2"
  295. 9620  PRINT "   Max. Shear Stress taken by conc. vc =.53 *SQR(f'c)="VSC" kg/cm2"
  296. 9640  IF VSTR(I)>=(VSC+VSSN) GOTO 9680
  297. 9650  PRINT "   Shear Stress taken by the min. Web Reinf'  vsn    ="VSSN" kg/cm2"
  298. 9660  PRINT "   Since  vu < vc+vsn  ;only min. web reinf' is required"
  299. 9670  NVR(I)=NVM :DVR(I)=DVM :SR(I)=SMAX :AVPR(I)=AVPM :AVRR(I)=AVM
  300. 9674  PRINT :LOCATE ,4: COLOR 0,4
  301. 9676  PRINT "USE  [ "NVR(I)" STR. "CHR$(237);DVR(I)" mm "CHR$(64);SR(I)" cm  SPACING ]"
  302. 9678  COLOR 15,1 :PRINT :GOTO 9990
  303. 9680  PRINT
  304. 9690  PRINT "   ** CHOICES OF SHEAR STIRRUPS REINF' **"
  305. 9695  VST=VSTR(I)
  306. 9700  FOR NV=1 TO NVMAX              'No. of closed stirrups
  307. 9710  FOR S =10 TO SMAX STEP 2.5     'Spacing of stirrups
  308. 9720  GOSUB 7100
  309. 9730  PRINT "  "NV" STR. "CHR$(237);DV" mm "CHR$(64);S" cm SPC.  * Av (Req.)="AV" cm2 *Av (Prv.)="AVP" cm2"
  310. 9740  NEXT S
  311. 9750  NEXT NV
  312. 9760  PRINT
  313. 9770  INPUT "   ENTER the preferable  [ NUMBER   ] of stirrups  ",NV
  314. 9780  INPUT "   ENTER the preferable  [ DIAMETER ] of stirrups  ",DV
  315. 9790  IF NV<=0 OR DV<=0 GOTO 9670
  316. 9800  IF NV<NVM THEN NV=NVM
  317. 9810  IF DV<DVM THEN DV=DVM
  318. 9820  GOSUB 7400
  319. 9830  NVR(I)=NV :DVR(I)=DV :SR(I)=S :AVPR(I)=AVP :AVRR(I)=AV
  320. 9840  VRM(I)=(VSSN+VSC)*0.85*B*D/1000
  321. 9850  GOSUB 8300
  322. 9860  PRINT :COLOR 0,4
  323. 9870  LOCATE ,5 :PRINT "USE  [ "NVR(I)" STR. "CHR$(237);DVR(I)" mm "CHR$(64);SR(I)" cm  SPACING ]"TAB(75)""
  324. 9875  LOCATE ,5 :PRINT "        FOR  "XSHR(I)"m  from face of right support "TAB(75)""
  325. 9880  LOCATE ,5 :PRINT "        THEN  use minimum web reinforcement"TAB(75)""
  326. 9890  COLOR 15,1 :PRINT
  327. 9990  RETURN
  328.